home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / progdisk.d64 / intro (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  15KB  |  408 lines
  1. 1000 REM COPYRIGHT JULY, 1984 WHIZ KIDS
  2. 1010 POKE808,225:PRINTCHR$(8)
  3. 1020 GOTO1040
  4. 1030 POKE54273,INT(RND(1)*100)+1:POKE54272,INT(RND(1)*128)+128:RETURN
  5. 1040 POKE53280,1:POKE53281,0:PRINT"[147]"CHR$(142)
  6. 1050 DIMZX(15)
  7. 1060 FORI=1TO15:READZX(I):NEXTI
  8. 1070 DATA 5,28,31,159,30,156,158,129,149,150,151,152,153,154,155
  9. 1080 FORI=1TO15
  10. 1090 PRINTCHR$(ZX(I))
  11. 1100 GETA$:IFA$<>""THENGOSUB3510:POKE53280,0:GOTO1300
  12. 1110 GOSUB1130:NEXTI
  13. 1120 GOTO1080
  14. 1130 PRINT""
  15. 1140 PRINTTAB(6)"[175][175]    [175][175]  [175][175]  [175][175]  [175][175]  [175][175][175][175][175][175]"
  16. 1150 PRINTTAB(6)"[180][170]    [180][170]  [180][170]  [180][170]  [180][170]  [204][175][175][175] [170]"
  17. 1160 PRINTTAB(6)"[180][170]    [180][170]  [180][170][175][175][180][170]  [180][170]     [206] [206]"
  18. 1170 PRINTTAB(6)"[180][170]    [180][170]  [180]    [170]  [180][170]    [206] [206] "
  19. 1180 PRINTTAB(6)"[180][170] [206][205] [180][170]  [180]    [170]  [180][170]   [206] [206]  "
  20. 1190 PRINTTAB(6)"[180][170][206]  [205][180][170]  [180][170][183][183][180][170]  [180][170]  [206] [170][175][175][175]"
  21. 1200 PRINTTAB(6)"[205][175][175][206][205][175][175][206]  [204][186]  [204][186]  [204][186]  [204][175][175][175][175][186]"
  22. 1210 PRINTTAB(8)"[175][175]  [175]  [175][175]  [175][175][175][175][175]    [175][175][175][175]"
  23. 1220 PRINTTAB(8)"[180][170] [206][170]  [180][170]  [180]    [205]  [206] [175][175][186]"
  24. 1230 PRINTTAB(8)"[180][170][206] [206]  [180][170]  [180][170][183][183][205] [180] [180] [204][175] "
  25. 1240 PRINTTAB(8)"[180]  [206]   [180][170]  [180][170]  [170] [180] [205]   [205]"
  26. 1250 PRINTTAB(8)"[180]  [205]   [180][170]  [180][170]  [170] [180]  [183][183][205] [180]"
  27. 1260 PRINTTAB(8)"[180][170][205] [205]  [180][170]  [180][170][175][175][206] [180] [175][175][175][206] [180]"
  28. 1270 PRINTTAB(8)"[204][186] [205][186]  [204][186]  [204][175][175][175][175][206]  [204][175][175][175][206] "
  29. 1280 PRINTTAB(10)"FOR THE COMMODORE 64 "
  30. 1290 FORX=1TO800:NEXT:RETURN
  31. 1300 POKE53280,6:POKE53281,1
  32. 1310 PRINT"[147]"
  33. 1320 PRINTTAB(9)"                      [146]"
  34. 1330 PRINTTAB(9)" WELCOME TO WHIZ KIDS [146]"
  35. 1340 PRINTTAB(9)"                      [146]"
  36. 1350 PRINT"   MY NAME IS COMMODORE, BUT YOU CAN"
  37. 1360 PRINT"     CALL ME CAPTAIN ...FOR SHORT"
  38. 1370 PRINT"     I ONCE WAS 20 AND NOW I'M 64"
  39. 1380 PRINT"[151]     YOU WILL BE SPENDING THE NEXT FEW"
  40. 1390 PRINT" MINUTES  WITH  ME.  AS I HAVE ALREADY"
  41. 1400 PRINT" INTRODUCED MYSELF,  I THINK IT'S ONLY"
  42. 1410 PRINT" FAIR THAT YOU TELL ME YOUR FULL NAME."
  43. 1420 PRINT" PLEASE TYPE YOUR NAME AND PRESS RETURN[151]  ? ";:GOSUB4840:N$=QC$
  44. 1430 GOSUB3120
  45. 1440 FORL=54272TO54296:POKEL,0:NEXT:POKE54296,15:POKE54277,190:POKE54278,248
  46. 1450 POKE54276,17:FORY=0TO35
  47. 1460 X=INT(RND(1)*16):IFX>15ORX<0THEN1460
  48. 1470 POKE53280,X:POKE53281,Y:GOSUB1030:FORT=1TO100
  49. 1480 NEXT:NEXT:POKE54296,0:POKE54276,32
  50. 1490 FORI=1TO800:NEXTI:POKE53280,6:POKE53281,1
  51. 1500 PRINTCHR$(14)"[147][151]   [217][207][213][210] [206][193][205][197] [201][206] [204][201][199][200][212][211]!   [206][201][195][197] [211][212][193][210][212]!"
  52. 1510 PRINTTAB(7)"[198]IRST OF ALL, ALLOW ME TO"
  53. 1520 PRINTTAB(5)"INTRODUCE MY KEYBOARD TO YOU."
  54. 1530 PRINTTAB(7)"[151][208]RESS   [195]   TO CONTINUE...";
  55. 1540 GETA$:IFA$<>"C"THEN1540
  56. 1550 PRINT"[147][149] [195]AN YOU SEE NUMBERS ACROSS THE TOP ROW"
  57. 1560 PRINT" OF KEYS?  [212]HESE ARE THE [151][206][213][205][197][210][201][195] [203][197][217][211]."
  58. 1570 PRINTTAB(25)"[183][183][183][183][183][183][183] [183][183][183][183]"
  59. 1580 PRINTTAB(10)"1 2 3 4 5 6 7 8 9 0"
  60. 1590 PRINT"[149] [201]N THE CENTER OF MY KEYBOARD, YOU WILL"
  61. 1600 PRINT" FIND [151][193][204][208][200][193][194][197][212][201][195] [203][197][217][211].":PRINT"      [183][183][183][183][183][183][183][183][183][183] [183][183][183][183]"
  62. 1610 PRINTTAB(10)"[209][160][215][160][197][160][210][160][212][160][217][160][213][160][201][160][207][160][208]"
  63. 1620 PRINTTAB(11)"[193][160][211][160][196][160][198][160][199][160][200][160][202][160][203][160][204]"
  64. 1630 PRINTTAB(12)"[218][160][216][160][195][160][214][160][194][160][206][160][205]"
  65. 1640 PRINT"[149] [206]OTICE  THE   DIFFERENCE  BETWEEN  THE"
  66. 1650 PRINT" NUMERIC ZERO AND THE [207] IN THE ALPHABET";:PRINT""
  67. 1660 PRINTTAB(7)"[151][208]RESS   0   TO CONTINUE...";
  68. 1670 GETA$:IFA$<>"0"THEN1670
  69. 1680 PRINTTAB(6)"[147][151] [212]HERE ARE ALSO KEYS FOR..."
  70. 1690 PRINT"[149] [208][213][206][195][212][213][193][212][201][207][206] [205][193][210][203][211],    ([151]' ! , . : ; ?[149])"
  71. 1700 PRINT"[149] [205][193][212][200][197][205][193][212][201][195][193][204] [211][217][205][194][207][204][211], ([151]+ - * /[149]) AND"
  72. 1710 PRINT" OTHER COMMON SYMBOLS  ([151]# $[160]&[160][186][160]%[160]\ <>[149])"
  73. 1720 PRINT" [193]LONG WITH A NUMBER OF SPECIAL PURPOSE"
  74. 1730 PRINT" KEYS:       [151][195][212][210][204]    [210][197][211][212][207][210][197]"
  75. 1740 PRINTTAB(13)"[211][200][201][198][212]   [210][197][212][213][210][206][149]"
  76. 1750 PRINTTAB(3)"[151]                                 [146]"
  77. 1760 PRINTTAB(3)" [198]IND THESE KEYS ON THE COMPUTER [146]"
  78. 1770 PRINTTAB(3)"                                 [146]"
  79. 1780 PRINTTAB(7)"[151][208]RESS   \   TO CONTINUE...";
  80. 1790 GETA$:IFA$<>"\"THEN1790
  81. 1800 PRINT"[147]   [201] SUGGEST YOU EXAMINE MY KEYBOARD."
  82. 1810 PRINT"  [212]HIS WILL HELP YOU TO LEARN WITH ME."
  83. 1820 PRINTTAB(6)"[151][208]RESS   [208]   TO CONTINUE...";
  84. 1830 GETA$:IFA$<>"P"THEN1830
  85. 1840 GOSUB3340:POKE53281,1:POKE53280,6
  86. 1850 PRINT"[147][151]  [198]OR THE MOMENT [201] WILL KEEP IT SIMPLE."
  87. 1860 PRINT"  [198]IRST WE WILL LOOK AT THE [210][197][212][213][210][206][151] KEY."
  88. 1870 PRINTTAB(8)"[208]RESS THE [210][197][212][213][210][206][151] KEY...":POKE198,0
  89. 1880 GETA$:IFA$=""THEN1880
  90. 1890 IFA$<>CHR$(13)THENPRINTTAB(11)"[207][207][208][211]!  [212]RY AGAIN.[151]":GOSUB3260:GOTO1850
  91. 1900 PRINT"[147]"TAB(13)"***[199][210][197][193][212]***":GOSUB3300
  92. 1910 PRINT"[151] [208]RESSING THE  [210][197][212][213][210][206][151]  KEY IS MUCH THE"
  93. 1920 PRINT"[151] SAME AS SAYING PLEASE, AS IN, "CHR$(34)"[208][204][197][193][211][197]"
  94. 1930 PRINT" ENTER THIS INSTRUCTION INTO MY MEMORY"CHR$(34)
  95. 1940 PRINT" [193]FTER YOU HAVE TYPED A MESSAGE TO ME,   YOU MUST PRESS [210][197][212][213][210][206][151] ..."
  96. 1950 PRINTTAB(9)"[151][201][212]'[211] [207][206][204][217][160][199][207][207][196][160][205][193][206][206][197][210][211]!"
  97. 1960 PRINT"[151]  [212]YPE THE WORD PRINT[151],":PRINT"        AND REMEMBER [210][197][212][213][210][206][151]!!"
  98. 1970 PRINT"  PRINT":PRINT"? ";:GOSUB4840:A$=QC$
  99. 1980 IFA$<>"PRINT"ANDA$<>"[208][210][201][206][212]"ANDA$<>"[208]RINT"THENPRINT"[207][207][208][211]! [212]RY AGAIN":GOTO1960
  100. 1990 FORI=1TO26:PRINT:NEXT
  101. 2000 PRINT"[151]    [212]HAT  WASN'T  TOO  HARD,  WAS IT?
  102. 2010 [153]"    (null)(null)RIGHT$(null)(null)POKE IS A SPECIAL COMPUTER WORD."
  103. 2020 [153]"    (null)OU WILL  LEARN TO  USE IT LATER."
  104. 2030 [153][163]7)"POKE(null)RESS  LEFT$  TO CONTINUE..."
  105. 2040 [161]A$:[139]A$[179][177]"H"[167]2040
  106. 2050 [151]53280,6:[151]53281,1:[153][199](14)
  107. 2060 [153]"LOADPOKE (null)RESSING THE  (null)LEFT$RIGHT$ASC(null)  KEY ALLOWS YOU TO"
  108. 2070 [153]" TYPE THE  SYMBOLS ABOVE THE NUMBERS ON"
  109. 2080 [153]" THE (null)(null)(null)VAL(null)RIGHT$LENCLOSE(null)VAL(null)(null)."
  110. 2090 [153]" RIGHT$T ALSO LETS YOU TYPE CAPITAL LETTERS."
  111. 2100 [153]" ASCOR  EXAMPLE,  HOLD  (null)LEFT$RIGHT$ASC(null)  AND  PRESS"
  112. 2110 [153]" 4  TO TYPE THE DOLLAR ($) SIGN."
  113. 2120 [153][163]9)"(null)OW TYPE THE  $  SIGN.":[151]198,0
  114. 2130 [161]A$:[139]A$[178]""[167]2130
  115. 2140 [139]A$[178]"$"[167]2180
  116. 2150 [153][163]9)"(null)(null)(null)(null)!!!  (null)RY  ATNGAIN..."
  117. 2160 [129]I[178]1[164]500:[130]:[141]3260
  118. 2170 [153]"ON";:[129]I[178]1[164]38:[153]" ";:[130]:[153]"ONONON":[151]198,0:[137] 2130
  119. 2180 [153][163]19)"$":[141]3300:[129]X[178]1[164]500:[130]
  120. 2190 [129]I[178]1[164]25:[153]:[130]:[153]
  121. 2200 [153][163]7)"CHR$(null)(null)STR$!   (null)OW PRESS ANY KEY."
  122. 2210 [161]A$:[139]A$[178]""[167]2210
  123. 2220 [151]53281,1:[151]53280,6
  124. 2230 [153]"LOADPOKE (null)LEASE TYPE YOUR NAME AND PRESS (null)VAL(null)(null)(null)(null)"
  125. 2240 [153]" (null)EMEMBER TO PRESS AND HOLD  (null)LEFT$RIGHT$ASC(null)POKE  FOR  CAPITAL LETTERS!"
  126. 2245 [153]" ? ";
  127. 2250 [141]4840:N$[178]QC$:[153][163]6)"POKELEFT$ELLO "N$"POKE."
  128. 2260 [153]" STR$ID YOU NOTICE THE FLASHING SQUARE?"
  129. 2270 [153]" RIGHT$T IS CALLED A CURSOR..."
  130. 2280 [153]" LEFT$ERE IT IS AGAIN:  ";
  131. 2290 [129] I[178]1 [164] 15
  132. 2300 [153]" WAITCMD";
  133. 2310 [129]J[178]1[164]200:[130]
  134. 2320 [153]" CMD";
  135. 2330 [129]J[178]1[164]200:[130]:[130]I
  136. 2340 [151]198,0:[153]"LOADPOKE   (null)OW TYPE A COMPLETE LINE OF LETTERS"
  137. 2350 [153]"   AND WATCH THE CURSOR MOVE!"
  138. 2360 [153][163]5)"(null)YPE UNTIL THE SCREEN CHANGES."
  139. 2370 [153]:[153]"DEF":[141]3400
  140. 2380 [151]53281,1:[151]53280,13
  141. 2390 [153]"POKELOAD (null)HE  RIGHT$(null)(null)(null)/STR$VAL(null)POKE  (INSERT/DELETE)  KEY IN"
  142. 2400 [153]" THE TOP RIGHT  CORNER OF THE COMPUTER,"
  143. 2410 [153]" REMOVES THE  CHARACTER TO THE  LEFT OF"
  144. 2420 [153]" THE CURSOR."
  145. 2430 [153]" (null)ATER YOU  WILL LEARN  TO INSERT WORDS"
  146. 2440 [153]" IN SENTENCES.  ASCOR NOW, JUST PRESS THE"
  147. 2450 [153]" RIGHT$(null)(null)(null)/STR$VAL(null)POKE KEY A FEW TIMES."
  148. 2460 [153] ""
  149. 2470 [153]"  ";:[129]I[178]1[164]36:[153]" ";:[130]:[153]"WAIT"
  150. 2480 [153] "   WAIT(null)OU MUST DELETE THE WHOLE SENTENCE WAIT"
  151. 2490 [153]"  ";:[129]I[178]1[164]36:[153]" ";:[130]:[153]"WAIT"
  152. 2500 [153] "ONONONONONONONPOKE"
  153. 2510 [153] " (null)ATCH THAT CURSOR MOVE!!!";:[129]W[178]1[164]1000:[130]:[151]198,0:[141]3400
  154. 2520 [153]"LOADPOKE    RIGHT$F YOU LOOK ON THE FRONT SIDE OF"
  155. 2530 [153]"    THE  NUMBER  KEYS,  YOU WILL SEE"
  156. 2540 [153]"    ABBREVIATIONS FOR EACH LEN(null)(null)(null)(null)POKE."
  157. 2550 [153]"    (null)O USE THESE KEYS, HOLD DOWN THE"
  158. 2560 [153]"    LEN(null)(null)(null)POKE KEY AND PRESS THE LEN(null)(null)(null)(null)POKE KEY"
  159. 2570 [153]"    OF YOUR CHOICE."
  160. 2580 [153]"    ((null)HE LEN(null)(null)(null)POKE KEY IS FOUND  NEAR THE"
  161. 2590 [153]"    TOP LEFT CORNER OF THE COMPUTER)"
  162. 2600 [153]" (null)O CONTINUE, USE THE LEN(null)(null)(null)POKE KEY AND THE"
  163. 2610 [153]" 3 KEY TO CHANGE THE CURSOR TO (null)VALSTR$POKE."
  164. 2620 [151]198,0
  165. 2630 [161]A$:[139]A$[178]""[167]2670
  166. 2640 [153]"STOP WAITCMD";:[129]I[178]1[164]200:[130]I
  167. 2650 [161]A$:[139]A$[178]""[167]2670
  168. 2660 [153]"STOP CMD";:[129]I[178]1[164]200:[130]I:[137]2630
  169. 2670 :
  170. 2680 [153]"  ";:[129]I[178]1[164]35:[153]" ";:[130]:[153]"WAIT"
  171. 2690 [153]"   WAITPOKE(null)OW TYPE UNTIL THE SCREEN CHANGES WAITPOKE"
  172. 2700 [153]"  ";:[129]I[178]1[164]35:[153]" ";:[130]:[153]"WAITONONONONONON"
  173. 2710 [129]W[178]1[164]100:[130]:[151]198,0:[141]3400
  174. 2720 [151]53280,6:[153]"LOADPOKE (null)YPE A SENTENCE IN BLUEPOKE.  (null)O CONTINUE"
  175. 2730 [153]" TYPE UNTIL THE SCREEN CHANGES."
  176. 2740 [153]" DEF(null)OTE:POKE(null)OU MUST USE THE LEN(null)(null)(null)POKE AND 7 KEY!"
  177. 2750 [151]198,0
  178. 2760 [161]A$:[139]A$[178]""[167]2800
  179. 2770 [153]"POKE WAITCMD";:[129]I[178]1[164]200:[130]I
  180. 2780 [161]A$:[139]A$[178]""[167]2800
  181. 2790 [153]"POKE CMD";:[129]I[178]1[164]200:[130]I:[137]2760
  182. 2800 [153]"ON "
  183. 2810 [129]W[178]1[164]200:[130]:[151]198,0:[141]3400
  184. 2820 [153]"LOADPOKE  (null)Y KEYBOARD ALSO HAS ASC(null)(null)LEN(null)RIGHT$(null)(null)POKE KEYS."
  185. 2830 [153]"  (null)HESE ARE THE GREY  KEYS ON THE FAR"
  186. 2840 [153]"  RIGHT  SIDE OF THE KEYBOARD  MARKED"
  187. 2850 [153]"  ASC1POKE, ASC3POKE, ASC5POKE, ASC7POKE."
  188. 2860 [153]"  (null)O USE THE NUMBERS (ASC2POKE, ASC4POKE, ASC6POKE, ASC8POKE)"
  189. 2870 [153]"  ON THE SIDE OF THESE KEYS, HOLD THE"
  190. 2880 [153]"  (null)LEFT$RIGHT$ASC(null)  KEY  DOWN  AS  YOU  PRESS  A"
  191. 2890 [153]"  FUNCTION KEY."
  192. 2900 [153]"POKE  (null)HE ASC(null)(null)LEN(null)RIGHT$(null)(null)POKE KEYS ARE JUST LIKE ANY"
  193. 2910 [153]"  OTHER KEYS.   (null)OU WILL LEARN TO USE"
  194. 2920 [153]"  THEM LATER."
  195. 2930 [153]""
  196. 2940 [153][163]11)"POKE(null)RESS THE ASC4POKE KEY."
  197. 2950 [129]W[178]1[164]500:[130]:[151]198,0
  198. 2960 [161]A$:[139]A$[178]""[167]2960
  199. 2970 [139]A$[178][199](138)[167][137]3010
  200. 2980 [153][163]11)"POKE(null)(null)(null)(null)!  (null)RY ATNGAIN!":[141]3260
  201. 2990 [153]"ON";:[129]I[178]1[164]38:[153]" ";:[130]:[153]"ONON"
  202. 3000 [151]198,0:[137]2960
  203. 3010 [129]I[178]1[164]25:[153]:[130]:[153]
  204. 3020 [153][163]7)"CHR$OOD!  (null)OW PRESS ANY KEY.":[141]3300
  205. 3030 [161]A$:[139]A$[178]""[167]3030
  206. 3040 [151]53280,2:[151]53281,0
  207. 3050 [153][199](14)"LOAD   PLEASE WAIT!!!!"
  208. 3060 [153]"   NEXT PROGRAM LOADING."
  209. 3070 [141]4740
  210. 3080 [153][199](9)[199](142)[199](8)
  211. 3090 [153]"STOPLOAD "[199](34)"MATH DEMO"[199](34)",8"
  212. 3100 [153]"":[151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13:[128]
  213. 3110 [128]
  214. 3120 [129]T[178]1[164]15:[153]"STOP "N$" "N$" "N$"OPEN "N$"CLR "N$" "N$" "N$"SYS "N$;
  215. 3130 [153]"FOR "N$"VERIFY "N$"DEF "N$"POKE "N$"PRINT# "N$"PRINT "N$"CONT "N$"LIST "N$:[130]:[142]
  216. 3140 [129]L[178]54272[164]54296:[151]L,0:[130]:[151]54296,15:[151]54277,0:[151]54278,248
  217. 3150 [151]54276,17:VL[178]54272:VH[178]54273:DO[178]25
  218. 3160 [135]DU,H,L:[139]DU[179][177][171]1[167][151]VL,L:[151]VH,H:[129]TT[178]1[164]DU[172]DO:[130]:[137]3160
  219. 3170 [151]54296,0:[142]
  220. 3180 [131] 1,21,154,1,25,177,3,0,0,30,28,214,5,0,0,2,28,214,3,32,94,5,0,0
  221. 3190 [131] 30,21,154,5,0,0
  222. 3200 [131] 2,21,154,3,25,177,3,0,0,30,28,214,5,0,0,2,28,214,3,32,94,5,0,0
  223. 3210 [131] 30,21,154,5,0,0
  224. 3220 [131] 4,19,63,4,17,37,15,19,63,4,17,37,4,19,63,30,21,154,3,0,0
  225. 3230 [131] 3,17,37,1,0,0,3,17,37,8,16,47,1,0,0,4,16,47,7,14,107,2,0,0,3,14,107
  226. 3240 [131] 12,12,216,2,0,0,7,22,227,2,0,0,30,21,154
  227. 3250 [131] -1,0,0
  228. 3260 [129]L[178]54272[164]54296:[151]L,0:[130]:[151]54296,15:[151]54277,0:[151]54278,248
  229. 3270 [151]54276,17:VL[178]54272:VH[178]54273:DO[178]200
  230. 3280 [129]I[178]1[164]8:[151]VL,L(I):[151]VH,H(I):[129]X[178]1[164]DO[172]D(I):[130]:[130]
  231. 3290 [151] 54296,0:[142]
  232. 3300 [129]L[178]54272[164]54296:[151]L,0:[130]:[151]54296,15:[151]54277,0:[151]54278,248
  233. 3310 [151]54276,17:VL[178]54272:VH[178]54273:DO[178]150
  234. 3320 [129]I[178]9[164]15:[151]VL,L(I):[151]VH,H(I):[129]X[178]1[164]DO[172]D(I):[130]:[130]
  235. 3330 [151] 54296,0:[142]
  236. 3340 [134]L(15),H(15),D(15)
  237. 3350 [129]I[178]9[164]15:[151]VL,I:[151]VH,I:[129]X[178]1[164]DO[172]D(I):[130]:[130]
  238. 3360 [129]X[178]1[164]15:[135]H(X),L(X),D(X):[130]
  239. 3370 [131] 51,97,1,0,0,0,51,97,1,0,0,0,43,52,1,57,172,1,51,97,3,43,52,4
  240. 3380 [131] 68,149,1,86,105,1,102,194,1,137,43,1,0,0,1,115,88,1,137,43,5
  241. 3390 [142]
  242. 3400 C[178]0:Q[178]18:CC[178]0
  243. 3410 [161]A$:C[178]C[170]1
  244. 3420 [139]C[178]6[167]Q[178]164[171]Q:C[178]0
  245. 3430 [153][199](Q)[199](32)[199](146)[199](157);
  246. 3440 [139]A$[178][199](19)[176]A$[178][199](147)[167]3410
  247. 3450 [153]A$;
  248. 3460 [139]A$[178]""[167]3410
  249. 3470 CC[178]CC[170]1:[139]CC[179][177]25[167]3410
  250. 3480 [142]
  251. 3510 AD[178]53265: [143] INTRO START
  252. 3520 [151] 53270,[194](53270) [175] 247
  253. 3530 [151] 53265,[194](53265) [175] 247
  254. 3540 V[178]54296:W[178]54276:A[178]54277:H[178]54273:L[178]54272
  255. 3550 [151] 53270,[194](53270) [175] 247
  256. 3560 [151] 53265,[194](53265) [175] 247
  257. 3570 V[178]54296:W[178]54276:A[178]54277:H[178]54273:L[178]54272
  258. 3580 [134] A$(20)
  259. 3590 [151] 53281,0:[151] 53280,1
  260. 3600 [153]"LOAD"
  261. 3610 [143] INTRO
  262. 3620 [129]Q[178]1 [164] 20:X[178][181](39[172][187](0)[170]1):Y[178][181](20[172][187](0)[170]1)
  263. 3630 [151] 1024[170]Y[172]40[170]X,[198] ("."):[151] 55296[170]Y[172]40[170]X,1
  264. 3640 [130] Q
  265. 3650 [153]"";:[129]I[178]1[164]10:[153]"           ":[130]I
  266. 3660 [151] V[170]16,0
  267. 3670 V[178]53248:[151] V[170]21,0
  268. 3680 [151] V[170]27,30
  269. 3690 [151] V[170]2,197:[151] V[170]4,245
  270. 3700 [151] V[170]6,197:[151] V[170]8,245
  271. 3710 [151] V[170]3,100:[151] V[170]5,100
  272. 3720 [151] V[170]7,142:[151] V[170]9,142
  273. 3730 [129] I[178]0 [164] 3:[151] 2041[170]I,250[170]I:[130] I
  274. 3740 [151] 2040,254
  275. 3750 [151] V[170]23,30:[151] V[170]29,30
  276. 3760 [129]I[178]0[164]7:[151]V[170]I[170]39,1:[130]I
  277. 3770 [151] V[170]39,8
  278. 3780 [151] V[170]21,15
  279. 3790 [153]"SYS(null)"
  280. 3800 [153]"(null)ONONON(null)"
  281. 3810 [153]"";
  282. 3820 [153]"    CMDCMDCMDCMD     CMDCMDCMD     WAIT"
  283. 3830 [153][163]23)"WHIZ KIDS"
  284. 3840 [153]"    CMDCMDCMD     CMDCMD  WAIT"
  285. 3850 X[178]30:Y[178]100:YV[178][171]3.5
  286. 3860 [129] Q[178]1 [164] 65
  287. 3870 [151] V,[181](X):[151] V[170]1,[181](Y):[151] V[170]21,31
  288. 3880 X[178]X[170]3
  289. 3890 Y[178]Y[170]YV:YV[178]YV[170].12:[130] Q
  290. 3900 [151] V[170]21,0
  291. 3910 [151] 53280,6:[151] 53281,6
  292. 3920 [153]"LOAD";
  293. 3930 [129]T[178]1[164]7:[153]"                                        WAIT";:[130]
  294. 3940 [153]"";:[129]I[178]1[164]39:[153]" ";:[130]:[153]"WAIT";
  295. 3950 [151] 2023,160:[151] 56295,5
  296. 3960 [153]"";
  297. 3970 [151] 54296,15
  298. 3980 [151] 54277,7:[151] 54278,133
  299. 3990 [129]I[178]150[164]50[169] [171]1
  300. 4000 [151] 54273,I:[151] 54272,I[170]20:[151] 54276,17:[130]I
  301. 4010 TT[178]50
  302. 4020 A$(0)[178]"                                      "
  303. 4030 A$(1)[178]"          WAIT    WAIT    WAIT  WAIT    WAIT     WAITSTEP"
  304. 4040 A$(2)[178]"          WAIT    WAIT    WAIT  WAIT    WAIT    WAITSTEP "
  305. 4050 A$(3)[178]"          WAIT  WAIT  WAIT      WAIT    WAIT   (null)  "
  306. 4060 A$(4)[178]"          WAIT  WAIT  WAIT    WAIT  WAIT    WAIT  STEP   WAIT"
  307. 4070 A$(5)[178]"              WAIT    WAIT  WAIT    WAIT STEP    WAIT"
  308. 4080 A$(6)[178]"                                     "
  309. 4090 A$(7)[178]"          WAIT STEP WAIT    WAIT     (null)WAIT       WAIT"
  310. 4100 A$(8)[178]"          WAITSTEP WAITSTEP    WAIT    WAIT  WAIT    WAIT   "
  311. 4110 A$(9)[178]"           +WAIT     WAIT    WAIT  WAIT       WAIT"
  312. 4120 A$(10)[178]"          WAIT(null) (null)WAIT    WAIT    WAIT  WAIT       WAIT"
  313. 4130 A$(11)[178]"          WAIT (null) (null)WAIT   WAIT     WAITSTEP       WAIT"
  314. 4140 [129]I[178]0[164]11:A$(I)[178]" "[170]A$(I):[130]
  315. 4150 [151] 820,0:[151] 821,16
  316. 4160 [129]I[178]11[164]6[169][171]1
  317. 4170 [153]"DEF";
  318. 4180 [153]"";:[153]A$(I):[158]16384:[141]4730:[130]
  319. 4190 [129]I[178]1[164]10:[158]16384:[141]4730:[130]
  320. 4200 [141] 4670
  321. 4210 [153]"":[129]I[178]7[164]11:[153]A$(I):[130]:[129]I[178]1[164]34:[153]" ";:[130]
  322. 4220 [129]I[178]1[164]3:[151] AD,([194](AD)[175]248)[170]0
  323. 4230 [129]T[178]1[164]30:[130]
  324. 4240 [151] AD,([194](AD)[175]248)[170]7
  325. 4250 [129]T[178]1[164]30:[130]T,I:[151]54276,128
  326. 4260 [151] AD,([194](AD)[175]248)[170]3
  327. 4270 [151] 821,10
  328. 4280 [129] I[178]5 [164] 0 [169] [171]1
  329. 4290 [141] 4730
  330. 4300 [153]"DEF";
  331. 4310 [153]"";:[153]A$(I):[158] 16384:[130]I
  332. 4320 [129]I[178]1 [164] 4:[158] 16384:[141] 4730:[130] I
  333. 4330 [141] 4670:[153]"";
  334. 4340 [129]I[178]1 [164] 6:[153]A$(I):[130]I
  335. 4350 [129]I[178]1 [164] 3:[151] AD,([194](AD)[175]248)[170]0
  336. 4360 [129] T[178]1 [164] 30:[130]T
  337. 4370 [151] AD,([194](AD)[175]248)[170]7
  338. 4380 [129] T[178]1 [164] 30:[130]T,I
  339. 4390 [151] AD,([194](AD)[175]248)[170]3
  340. 4400 [153]"";
  341. 4410 [129]I[178]1 [164] 6:[153]A$(I):[130]I
  342. 4420 [153]""
  343. 4430 [151] 54296,0
  344. 4440 [151] 53270,[194](53270) [176] 8
  345. 4450 [151] 53265,[194](53265) [176] 8
  346. 4460 [129]I[178]1[164]5:[158]65[172]256:[129]T[178]1 [164] 100:[130]T:[130] I
  347. 4470 [153]"";
  348. 4480 [153]"AN INTRODUCTION TO BASIC"
  349. 4490 [153]"ON THE COMMODORE 64WAITONONONONON"
  350. 4500 [129]I[178]1 [164] 20:[158] 65[172]256:[129]T[178]1 [164] 100:[130]T,I
  351. 4510 [153]"";
  352. 4520 [153]"";:[129]I[178]1[164]39:[153]" ";:[130]
  353. 4530 [153]"        AN INTRODUCTION TO BASIC"
  354. 4540 [153]"          ON THE COMMODORE 64     "
  355. 4550 [153]"";:[129]I[178]1[164]36:[153]" ";:[130]:[153]"WAIT"
  356. 4560 [153]"ONON";:[129]I[178]1[164]10:[153]"                    ";:[130]
  357. 4570 [129]I[178]1[164]39:[153]" ";:[130]
  358. 4580 [151] 2023,32:[141]3140:[151]908,0
  359. 4590 [153]"";
  360. 4600 [153]""
  361. 4610 [153]"PLEASE TYPE IN THE PASSWORD WHIZ KIDSWAIT.  ";
  362. 4620 [153]"DON'T FORGET TO PRESS RETURNWAIT.           ";
  363. 4630 [129]I[178]1[164]80:[153]" ";:[130]:[153]"ONONPASSWORD: ";
  364. 4640 [141]4840
  365. 4650 [139] QC$[178]"WHIZ KIDS" [167] [142]
  366. 4660 [137]4590
  367. 4670 [151] 54296,15
  368. 4680 [151] 54276,128
  369. 4690 [151] 54277,33:[151] 52278,17
  370. 4700 [151] 54273,34:[151] 54272,85
  371. 4710 [151] 54276,129
  372. 4720 [142]
  373. 4730 [151] 54273,TT:[151] 54272,TT[170]20:[151] 54276,17:TT[178]TT[171]1:[142]
  374. 4740 [153]"": [143] STOP SIGN
  375. 4750 [129]I[178]1[164]16:[153]"";:[130]
  376. 4760 [153][163]28)" STEP      (null)"
  377. 4770 [153][163]28)"STEP        (null)"
  378. 4780 [153][163]28)"  WAITGET    ABS  "
  379. 4790 [153][163]28)"  WAITGETSTOPABS  "
  380. 4800 [153][163]28)"  WAITGET    ABS  "
  381. 4810 [153][163]28)"(null)        WAITSTEP"
  382. 4820 [153][163]28)" (null)      WAITSTEP"
  383. 4830 [153]"":[142]
  384. 4840 :
  385. 4850 [143]  TYPE A LINE TO CONTINUE
  386. 4860 :
  387. 4870 [139][194](207)[178]0[167][151]204,0:[137]4880
  388. 4875 [137]4870
  389. 4880 QC$[178]""
  390. 4890 [143]:POKE198,0
  391. 4900 [139][195](QC$)[177]20[167]4950
  392. 4910 [161]Q$:[139]Q$[178]""[167]4910
  393. 4920 [139]Q$[178][199](13)[176]Q$[178][199](141)[167]5000
  394. 4930 [139]Q$[179][177][199](157)[175]Q$[179][177][199](20)[167]4960
  395. 4940 [139]QC$[178]""[167]4890
  396. 4950 QC$[178][200](QC$,[195](QC$)[171]1):[153]"CMD  CMDCMD";:[137]4890
  397. 4960 [139][198](Q$)[179]32[176][198](Q$)[177]223[167]4890
  398. 4965 [139][198](Q$)[177]127[175][198](Q$)[179]192[167]4890
  399. 4970 QC$[178]QC$[170]Q$:[139][198](Q$)[178]34[167]:[153][199](34);[199](34);"CMD CMD";:[137]4890
  400. 4980 [153]Q$;:[137]4890
  401. 4990 [137] 4890
  402. 5000 [153]
  403. 5002 [139][194](207)[178]0[167][151]204,1:[137]5010
  404. 5004 [137]5002
  405. 5010 [142]
  406. 10000 [151]46,66:[151]45,0:[144]
  407. 20000 [151]53280,1:[151]53281,1:[153][199](9)[199](14)"POKE";:[144]
  408.